home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / SXP682.ARC / S-мсг (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.9 KB  |  237 lines
  1. 0 POKE53280,.:POKE53281,.:PRINT"[147][151]    ";:SYS49230:GOTO100
  2. 1 GOSUB2:GOTO4
  3. 2 GOTO1610
  4. 3 GOTO1000
  5. 4 GOTO1740
  6. 5 GOSUB2:GOTO3
  7. 6 I$=" "+I$:SYS49182,I$:I$=MID$(I$,2):RETURN
  8. 7 A$=R$+A$+"> ":GOTO1
  9. 8 A$=" "+R$+"":GOTO2
  10. 9 A$=R$+A$:GOTO2
  11. 10 K9$=MID$("[202]AN[198]EB[205]AR[193]PR[205]AY[202]UN[202]UL[193]UG[211]EP[207]CT[206]OV[196]EC",(VAL(MID$(K$,3,2))-1)*3+1,3)
  12. 11 K$=LEFT$(K$,2)+"-"+K9$+"-"+RIGHT$(K$,2):RETURN
  13. 12 S=54272:POKES+4,64:POKES+3,9:POKES+1,8:POKES+5,12:POKES+6,15:POKES+4,65:RETURN
  14. 13 CLOSE4:CLOSE3:CLOSE2:CLOSE1:RETURN
  15. 14 SYS49179,A$:RETURN
  16. 15 GOTO1650
  17. 19 CLOSE2:OPEN2,8,2,"0:USER LOG,S,A":RETURN
  18. 20 A$="<[205]ORE?>":GOSUB2:GOSUB25:A$="":FORX=1TO7:A$=A$+CHR$(20):NEXT:A$=A$+""
  19. 21 FC=.:GOTO2
  20. 25 GOSUB40:I$="N":POKE703,.:SYS49221,I$:D=-1:IFPEEK(703)>.THENI$="":Z=1:RETURN
  21. 26 GOSUB6:IFFC=FWANDFWTHENRETURN
  22. 27 IFI$=R$ORI$="[217]"THENA$="[217]ES":D=1:GOTO2
  23. 28 IFI$="[206]"THENA$="[206]O":D=.:GOTO2
  24. 29 GOTO25
  25. 30 A$="":SYS49194:S=ST:IFPEEK(685)THENA$=LEFT$(X$,PEEK(685)):SYS49200,A$
  26. 31 SYS49239:RETURN
  27. 33 A$="":GOSUB37:A$=X$+"":SYS49227,A$:GOSUB37:A$=LEFT$(A$,PEEK(2025)-1):RETURN
  28. 34 A$="[211]TAND BY":GOTO9
  29. 37 PRINT#1,M$CHR$(G)CHR$(H)Y$:INPUT#1,M1,M1$,M1,M1:RETURN
  30. 40 T2=TI+WT:IFT2>T-1THENT2=T2-T
  31. 41 T2=T2-INT(T2/60^3)*60^3:M5=INT(T2/60^2):M5$=MID$(STR$(M5),2)
  32. 42 M5=.:IFLEN(M5$)>1THENM5=16*VAL(LEFT$(M5$,1))
  33. 43 MM=VAL(RIGHT$(M5$,1)):M5=M5+MM:POKE702,M5:RETURN
  34. 50 H=INT(X/C):G=INT(X-C*H):RETURN
  35. 73 GOSUB13:OPEN1,8,15:OPEN3,8,3,"0:[205]ESSAGES"+GM$:RETURN
  36. 78 A$=MID$(STR$(A),2):IFLEN(A$)=1THENA$="0"+A$
  37. 79 RETURN
  38. 80 SYS49224:B$="":FORX=1094TO1101:B$=B$+CHR$(PEEK(X)):NEXT:SYS49230:RETURN
  39. 100 IFPEEK(1064)=32THEN100
  40. 101 OPEN5,2,.,CHR$(6):C=256:MP=PEEK(742)+PEEK(743)*C:CP=PEEK(719):B=255
  41. 106 I$="":FORX=1070TO1073:A$=CHR$(PEEK(X)):I$=I$+A$:NEXT
  42. 107 IFLEFT$(I$,1)=" "THENI$=MID$(I$,2)
  43. 108 GOSUB5900
  44. 120 R$=CHR$(13):J$="[211][217][211][207][208]":V$=R$+"[201]NVALID ":W$="[193]BORTED":C$=CHR$(160):POKE1023,B
  45. 160 Y$=CHR$(.):M$="P"+CHR$(99):WT=10800:FR$="0:[211]YSTEM [213]SERS":Q$=CHR$(34)
  46. 170 CLOSE9:OPEN9,8,2,"0:CUSTOM":INPUT#9,PS$:INPUT#9,A$
  47. 180 LF=VAL(A$):INPUT#9,DR$:DR=VAL(DR$):IFDR=-1THEN195
  48. 185 DIMDR$(4,DR)
  49. 190 FORX=.TODR:FORY=1TO3:INPUT#9,DR$(Y,X):NEXTY,X:FORX=.TODR:DR$(2,X)=DR$(2,X)+":":NEXT
  50. 195 INPUT#9,MG$:MG=VAL(MG$):DIMMG$(3,MG):FORX=.TOMG:FORY=.TO3:INPUT#9,MG$(Y,X):NEXTY,X
  51. 197 FORX=.TOMG:MG$(1,X)=MG$(1,X)+":":NEXT
  52. 200 INPUT#9,NC$:NC=VAL(NC$):FORX=.TONC:INPUT#9,C$(X):NEXT:MD=VAL(MG$(2,.))
  53. 205 P$=MG$(1,.):INPUT#9,A$:BD=VAL(A$):INPUT#9,BD$,UM$,PG$,A$,LD$
  54. 206 UM=VAL(UM$):LD=VAL(A$):PG=VAL(PG$):INPUT#9,SU$,NB$,A$,CG$:EZ=VAL(A$)
  55. 207 INPUT#9,PD$,P1$,P2$:P1=VAL(P1$):DIMTB$(VAL(NB$)+7),P1$(P1)
  56. 208 FORX=.TOP1:INPUT#9,P1$(X):NEXT:X=8
  57. 209 INPUT#9,TB$(X):X=X+1:IFST=.THEN209
  58. 220 CLOSE9:OPEN9,8,9,"0:STATS
  59. 225 [129]X[178].[164]MG:[132]9,SY$(X),R4$(X),AL$(X),RF$(X):[130]:[132]9,US$,OL$
  60. 240 [132]9,YV$,FB$,BF$:MB[178][197](MG$(3,.)):YV[178][197](YV$):[139]DR[178][171]1[167]260
  61. 250 [129]X[178].[164]DR:[132]9,DR$(4,X):[130]
  62. 260 [160]9:U[178]8:C$(7)[178]"(null)RIVATE
  63. 265 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)OR16:CLOSE1:OPEN1,LD,15,"UI+":CLOSE1
  64. 266 GOSUB8:A$="[205]SG[160][200]EADER [197]DITOR V940728":GOSUB2
  65. 270 P$=P$+":":BD$=BD$+":":LD$=LD$+":":NB=VAL(NB$):NB$="":DD$="0:
  66. 280 [151]650,128:T[178]5184E3:A$[178]"                                        "
  67. 290 [129]X[178]1[164]6:X$[178]X$[170]A$:[130]:X$[178]X$[170]"               ":[129]X[178]1[164]16:SS$[178]SS$[170]C$:[130]
  68. 300 US[178][197](US$):OL[178][197](OL$):WD[178][194](687)
  69. 320 E$[178]"":[129]X[178].[164]1:A[178]([194](710[170]X)):[141]78:E$[178]E$[170]A$:[130]
  70. 350 DY$[178][202]([196]([194](999)),2):[139][195](DY$)[178]1[167]DY$[178]"0"[170]DY$
  71. 360 Z$[178][202]([196]([194](1000)),2):[139][195](Z$)[178]1[167]Z$[178]"0"[170]Z$
  72. 370 Y2[178][194](1001):Y3[178][194](1002):YR[178]Y3[172]C[170]Y2:YR$[178][202]([196](YR),2)
  73. 380 D$[178]DY$[170]Z$[170][201](YR$,2)
  74. 390 F1[178]1:[141]2160:F1[178].
  75. 393 [158]49224:B$[178]"":[129]X[178]1094[164]1101:B$[178]B$[170][199]([194](X)):[130]:[158]49230
  76. 395 E[178][197]([200](B$,2))[172]60[174]3[170][197]([202](B$,4,2))[172]60[174]2
  77. 400 E[178]E[170]([197]([201](B$,2))[170]1)[172]60:E[178]TI[171]E
  78. 405 N$[178]"":[129]X[178]971[164]995:A$[178][199]([194](X)):[139]A$[178][199](.)[167]407
  79. 406 N$[178]N$[170]A$:[130]X
  80. 407 [129]X[178]1[164]25:[139][201](N$,X)[178][201](X$,X)[167][130]
  81. 408 N$[178][200](N$,26[171]X)
  82. 410 I$[178]PS$:[141]6:CW$[178]I$:FW[178]20
  83. 411 CS[178]B:SC[178]1:CN[178]1:P[178]1:WD[178]38:[137]1000
  84. 1000 A$[178]N$:[141]14:WT[178]10800:[141]2160:[139]Z[167]2480
  85. 1010 [151]1023,1:J[178].:A$[178]"PEEKASE # > 
  86. 1030 GOSUB9:GOSUB4:IFZORI$="[255]"THEN3
  87. 1050 IFJ9=1THEN1940
  88. 1060 GOSUB6:IFI$="[194][194][211]"ORI$=" "THENSYS65484:POKE1023,B:GOTO3675
  89. 1320 IFI$="[209]"ORI$="[199]"THEN1385
  90. 1325 IFVAL(I$)<.ORVAL(I$)>MGTHEN3
  91. 1330 GM=VAL(I$):GM$=I$:N=VAL(AL$(GM)):R=VAL(RF$(GM)):GOTO17050
  92. 1350 A$="[204]OGOFF, YOU SURE? ":GOSUB9:GOSUB25:IFD=.ANDZ=.THEN3
  93. 1385 POKE1023,254:GOSUB80
  94. 1390 A$="[204]OGOFF AT "+LEFT$(TI$,2)+":"+MID$(TI$,4,2)+":"+RIGHT$(TI$,2):GOSUB9
  95. 1395 A$="[195]ONNECT TIME = "+B$+R$+R$+"[208]LEASE CALL AGAIN."+R$+"":GOSUB2:GOTO3677
  96. 1560 POKE707,.:A=ASC(A$):IFA=136THEN1910
  97. 1590 IFA=137ORPEEK(702)=BTHENRETURN
  98. 1593 IFA=139THENE=TI:K=E:I$="[255]":FORX=56587TO56584STEP-1:POKEX,.:NEXT:X=PEEK(56584):RETURN
  99. 1600 A$=AS$:GOTO1820
  100. 1610 GET#5,K9$:C9=.:H$="":IFA$=""THENA$=" "+R$+"
  101. 1615 [158]49203,A$:[158]49239
  102. 1620 [139][201](A$,1)[179][177]""[175]SK[178].[167]2840
  103. 1630 [142]
  104. 1650 U[178]8:DD$[178]"0:
  105. 1670 GOSUB13:OPEN1,U,15:OPEN2,U,2,DD$+F$
  106. 1680 POKE685,.:POKE693,.:GOSUB8:INPUT#1,A:IFATHENRETURN
  107. 1700 GOSUB30:IFFWTHENFC=FC+1:IFFC=FWTHENAS$=A$:GOSUB20:A$=AS$:IFI$="[206]"THENS=64:GOTO1720
  108. 1715 GOSUB2
  109. 1720 IFC9ORS=64THENCLOSE15:CLOSE2:A=.:FC=.:RETURN
  110. 1730 GOTO1700
  111. 1740 POKE694,.:F1=1:GOSUB2160:F1=.:IFJ9=1ANDJ=.THENI$=C$:A$=C$:GOTO2
  112. 1800 GOSUB40:IFPATHENGOSUB12
  113. 1810 POKE703,.:IFO=.THENO=38
  114. 1820 A$=LEFT$(X$,O):SYS49215,A$:IFJ=1ANDPEEK(707)=136THENPOKE707,.:GOTO1820
  115. 1830 IFPEEK(707)>.THENAS$=A$:A$=CHR$(PEEK(707)):GOTO1560
  116. 1840 IFPEEK(703)>.THENZ=1:I$=C$:RETURN
  117. 1850 I$=A$:I$=LEFT$(I$,PEEK(694)):IFPEEK(694)=.THENI$=C$
  118. 1870 O=.:RETURN
  119. 1910 IFJ9=1THENK=TI:J9=.:RETURN
  120. 1920 J9=1:I$=C$:A$=C$:GOTO2
  121. 1930 K=TI:J9=2:GOTO3
  122. 1940 POKE54296,.:PA=.:A$="[195]HAT [205]ODE"+R$+R$+"":GOSUB9:POKE690,PEEK(729):GOTO2550
  123. 2150 A$=" [195]ONNECT [212]IME = "+TH$+":"+TM$+":"+TS$:GOTO5
  124. 2160 TC=56328:X9=PEEK(TC+3):A%=(X9AND16)/16+48:B%=(X9AND15)+48
  125. 2170 IFX9=>128ANDVAL(CHR$(A%)+CHR$(B%))<12THENA%=A%+1:B%=B%+2
  126. 2180 IFB%>57THENA%=A%+1:B%=B%-10
  127. 2190 IFX9<128ANDA%=49ANDB%=50THENA%=48:B%=48
  128. 2200 X9=PEEK(TC+2):C%=(X9AND240)/16+48:D%=(X9AND15)+48
  129. 2210 X9=PEEK(TC+1):E%=(X9AND240)/16+48:F%=(X9AND15)+48
  130. 2220 X9=PEEK(TC):TI$=CHR$(A%)+CHR$(B%)+CHR$(C%)+CHR$(D%)+CHR$(E%)+CHR$(F%)
  131. 2225 IFTI-3>4E6THENE=E+T
  132. 2227 IF(PEEK(MP)AND16)<>CPANDPEEK(706)=.THENZ=1:RETURN
  133. 2230 RETURN
  134. 2480 J9=.:POKE1023,253:GOSUB2510:GOTO3675
  135. 2510 FORX=8TONB+7:CLOSE1:OPEN1,X,15:CLOSE1
  136. 2520 IFSTTHEN2540
  137. 2530 OPEN1,X,15,"I0:":CLOSE1
  138. 2540 NEXT:RETURN
  139. 2550 POKE694,.:POKE702,B:SYS49215,X$
  140. 2560 IFPEEK(707)=.THEN2550
  141. 2570 A$=CHR$(PEEK(707)):GOSUB1560:IFJ9=.ORZTHENGOSUB8:GOTO1930
  142. 2580 GOTO2550
  143. 2840 SK=.:K=TI:IFK9$>""THENA$=K9$:GOTO2870
  144. 2850 GETA$:IFA$>""THEN2870
  145. 2860 GET#5,A$:IFA$>""THEN2870
  146. 2865 IF(PEEK(673)AND1)=.THENRETURN
  147. 2867 GOTO2850
  148. 2870 K=TI:Z=.:A=ASC(A$):IFA>127THENA$=CHR$(A-128)
  149. 2875 IFA$=CHR$(131)THENA$="
  150. 2880 [139]A$[178]""[176]A$[178]""[167]H$[178]A$:C9[178]1:[142]
  151. 2890 [139]A$[178][199](83)[176]A$[178][199](115)[167]A$[178]"<LEN>":SK[178]1:[141]2:[137]2960
  152. 2900 [137]2850
  153. 2960 [161]A$:[139]A$[177]""[167]2990
  154. 2970 [139]TI[171]K[177]WT[167]A$[178][199](65):Z[178]1:[137]2990
  155. 2980 [161]#5,A$:[139]A$[178]""[167]2960
  156. 2990 A[178][198](A$):[139]A[177]127[167]A$[178][199](A[171]128)
  157. 3000 [139]A$[178][199](65)[176]A$[178][199](97)[167][141]3055:C9[178]1:[142]
  158. 3010 [139]A$[178][199](67)[176]A$[178][199](99)[167]3055
  159. 3020 [137]2960
  160. 3055 A$[178][199](20):A$[178]A$[170]A$[170]A$[170]"":[141]2:SK[178].:[142]
  161. 3640 [160]14:[160]1:[159]1,8,15,"S0:STATS":[152]1,"I0:
  162. 3645 OPEN14,8,14,"0:STATS,S,W
  163. 3650 [129]X[178].[164]MG:[152]14,SY$(X);R$;R4$(X);R$;AL$(X);R$;RF$(X):[130]
  164. 3660 [152]14,[196](US);R$;Q$[170]OL$;R$;[196](YV);R$;FB$;R$;BF$:[139]DR[178][171]1[167]3673
  165. 3670 [129]X[178].[164]DR:[152]14,DR$(4,X):[130]
  166. 3673 [160]14:[160]1:[142]
  167. 3675 [151]54296,.:A$[178]"(null)NE MOMENT...":[141]9
  168. 3677 [139]TB$(LD)[178]"0"[167][151]53265,[194](53265)[175]239:[160]1:[159]1,LD,15,"UI-":[160]1
  169. 3680 [153]"LOADNEW"R$"LOAD"Q$;LD$;"BBS6*";Q$;",";LD;":"R$"RUN
  170. 3690 POKE198,3:POKE631,13:POKE632,13:POKE633,13:PRINT"":A$=N$:GOSUB14:END
  171. 5900 BR=VAL(I$):POKE659,6:X=1022730/BR:GOSUB50
  172. 5905 IFBR=300ORBR>1199THENSYS49242:GOTO5910
  173. 5906 SYS49245
  174. 5910 POKE176,G:POKE177,H:POKE665,G
  175. 5920 POKE666,H:X=1022730/BR/2-100:GOSUB50:POKE661,G:POKE662,H
  176. 5930 IFLEN(I$)=3THENI$="0"+I$
  177. 5940 FORX=1TO4:POKEX+964,ASC(MID$(I$,X,1)):NEXT:RETURN
  178. 6000 A$="([198])ROM, ([212])O, [211](U)BJ, ([196])ATE, ([195])AT":GOSUB9
  179. 6002 A$="([204])IST, ([211])AVE, [197](X)IT ":O=1:GOSUB7:GOSUB6:IFI$=" "ORI$="[216]"ORZTHEN3
  180. 6005 IFI$="[198]"THEN6020
  181. 6006 IFI$="[212]"THEN6025
  182. 6007 IFI$="[213]"THEN6030
  183. 6008 IFI$="[196]"THEN6035
  184. 6009 IFI$="[195]"THEN6040
  185. 6010 IFI$="[204]"THEN17350
  186. 6011 IFI$="[211]"THEN14325
  187. 6015 GOTO6000
  188. 6020 A$="[198]ROM: "+T3$+R$+"[198]ROM":O=25:GOSUB7:IFI$=C$ORZTHEN6000
  189. 6021 GOSUB6:T3$=I$:GOTO6000
  190. 6025 A$="[212]O: "+G$+R$+"[212]O":O=25:GOSUB7:IFI$=C$ORZTHEN6000
  191. 6026 GOSUB6:G$=I$:GOTO6000
  192. 6030 A$="[211]UBJ: "+O$+R$+"[211]UBJ":O=30:GOSUB7:IFI$=C$ORZTHEN6000
  193. 6032 FORQ=1TOLEN(I$):IFMID$(I$,Q,1)=Q$THENI$=LEFT$(I$,Q-1)+""+MID$(I$,Q+1)
  194. 6033 NEXT:O$=I$:GOTO6000
  195. 6035 A$="[196]ATE: "+K$+R$+"[196]ATE":O=18:GOSUB7:IFI$=C$ORZORLEN(I$)<>18THEN6000
  196. 6036 K$=I$:GOTO6000
  197. 6040 IFDETHENA$="[196]ELETED!":GOSUB9:GOTO6042
  198. 6041 A$="[195]AT #:"+STR$(MC)+"":GOSUB9
  199. 6042 A$="[195]AT #":O=1:GOSUB7:IFI$=C$ORZOR(VAL(I$)>NCANDI$<>"7")THEN6000
  200. 6043 MC=VAL(I$):DE=.:GOTO6000
  201. 14325 A$="[211]AVING [210]EF #:"+STR$(VR):GOSUB9
  202. 14360 GOSUB73:H=INT(PF/C):G=PF-H*C
  203. 14372 FA=MC+16*FF:IFDETHENFA=64
  204. 14373 GOSUB37:K8$=CHR$(LEN(G$))+G$+LEFT$(X$,26-LEN(G$))
  205. 14375 JM$=CHR$(LEN(O$))+O$+LEFT$(X$,30-LEN(O$))
  206. 14376 K7$=CHR$(LEN(T3$))+T3$+LEFT$(X$,26-LEN(T3$))
  207. 14377 PRINT#3,Y$+K7$+K8$+K$+JM$+CHR$(FA)+CHR$(VL)+CHR$(VH)+RT$+R1$+Y$
  208. 14379 K7$="":GOSUB73:K8$="":JM$="":RT$="":R1$=""
  209. 14384 GOSUB13:GOTO3
  210. 17050 A$="[205]SG # >[160]":GOSUB9:GOSUB4:IFZORI$=C$THEN3
  211. 17055 GOSUB6:I=VAL(I$):IFI<>.THENI=N-R+I
  212. 17060 IFI>NORI<.THENA$=R$+"[201]NVALID [205]ESSAGE [206]UMBER":GOTO5
  213. 17090 VR=R-N+I:V=I:GOSUB73
  214. 17120 PF=(VR)-(INT((VR)/MB)*MB)+1:H=INT(PF/C):G=PF-H*C:H4=H:G4=G:GOSUB37
  215. 17125 A$=X$+"":SYS49227,A$:GOSUB37:A$=LEFT$(A$,PEEK(2025)-1)
  216. 17127 IFLEN(A$)<>110THENA$="[204]OAD [197]RROR! [196]EFAULTS USED!":GOSUB9:GOTO17400
  217. 17130 AA=ASC(LEFT$(A$,1)):T3$=MID$(A$,3,ASC(MID$(A$,2,1))):K$=MID$(A$,56,18)
  218. 17135 G$=MID$(A$,30,ASC(MID$(A$,29,1)))
  219. 17140 O$=MID$(A$,75,ASC(MID$(A$,74,1))):FA=ASC(MID$(A$,105,1))
  220. 17150 VL=ASC(MID$(A$,106,1)):VH=ASC(MID$(A$,107,1)):RT$=MID$(A$,108,1)
  221. 17151 R1$=MID$(A$,109,1):GOSUB13
  222. 17152 DE=.:IFFA=64THENDE=1
  223. 17153 MC=(FAAND15):FF=((FAAND16)=.)+1
  224. 17350 A$="[205]SG #:"+STR$(VR):IF(VL+VH)THENA$=A$+" ([210])
  225. 17352 [139]AA[167]A$[178]A$[170]" (ATN"[170][202]([196](AA),2)[170]")
  226. 17355 GOSUB9:IFWTHEN6000
  227. 17356 A$=" [198]ROM: "+T3$:IFFFTHENA$=A$+" ([198][215][196])
  228. 17357 [139]FA[178]64[167]A$[178]A$[170]" (STR$VAL(null))
  229. 17358 GOSUB2
  230. 17370 A$="   [212]O: "+G$:GOSUB2:IFWTHEN6000
  231. 17383 A$=" [211]UBJ: "+O$:GOSUB2:IFWTHEN6000
  232. 17384 A$=" [196]ATE: "+K$:GOSUB2
  233. 17385 IFFA<>64THENA$="[195]AT'Y: "+C$(MC):GOSUB2
  234. 17390 GOTO6000
  235. 17400 T3$="[206][207] [207][206][197]":G$="[193][204][204]":O$=".":K$="00:00A[205]ON01-[202]AN-92":MC=.:FF=.:DE=.
  236. 17401 R1$=Y$:RT$=Y$:FA=.:VL=.:VH=.:AA=.:GOTO17350
  237.